home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 8 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  249b  |  19 lines
  1. 0 rem box-demo 2
  2. 5 :
  3. 10 ok=1
  4. 20 (NULL)1,20,19,24,39,1
  5. 30 (NULL)1,14,128
  6. 40 (NULL)1
  7. 50 (NULL) 1,2,"nicht ok"
  8. 60 (NULL) 1,14,"ok"
  9. 70 (NULL)
  10. 80 (NULL)0,1,1,1,10,1
  11. 90 (NULL)1,1,12,1,17,1
  12. 100 (NULL) ok
  13. 110 (NULL)
  14. 120 (NULL)1
  15. 130 :
  16. 140 print "ok ="ok", d.h. ";
  17. 150 if ok=0 then print"n e i n" :end
  18. 160 print"j a"
  19.